home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / quikcmd2.zip / FASTLAYR.LSP < prev    next >
Text File  |  1990-10-23  |  7KB  |  205 lines
  1. ;  FASTLAYR.LSP
  2. ;
  3. ;                         QUICK COMMAND version 2.0
  4. ;                   FASTLAYR.LSP is a module of QUICK COMMAND
  5. ;                        Copyright 1989, 1990 Dan Jincks
  6. ;
  7. ;
  8. ;              This is SHAREWARE, it is NOT Public Domain software.
  9. ;
  10. ;              This code or any part of this code may not be reproduced
  11. ;              in any publication without prior written permission.
  12. ;
  13. ;              Printed copy of this code or any part of this code may not
  14. ;              be distributed without prior written permission.
  15. ;
  16. ;              Printed copy may only be made for reference purposes by
  17. ;              the end user.
  18. ;
  19. ;
  20. ;                               Dan Jincks
  21. ;                             Box 155A HCR 77
  22. ;                           Annapolis, MO 63620
  23. ;
  24. ;
  25. ;
  26. ;   You are granted a limited license to use FASTLAYR.LSP for a 30 day trial
  27. ;   period.  If you wish to continue using any or all of QUICK COMMAND after
  28. ;   the trial period, you must become a registered user.  As a registered
  29. ;   user, you may use QUICK COMMAND on 1 workstation or terminal.
  30. ;   Additional registrations must be bought for each additional workstation or
  31. ;   terminal.  To become a registered user, fill out the order form that can
  32. ;   be printed out from ORDERQC.DOC .
  33. ;
  34. ;
  35. ;   You may send copies of QUICK COMMAND to friends and associates if you abide
  36. ;   by the following rules:
  37. ;
  38. ;   1. It may only be distributed in the original unmodified form.
  39. ;   2. All original files must be included.
  40. ;   3. No addition files may be added.
  41. ;   4. If other files will be on the same disk, QUICK COMMAND files must be in
  42. ;      a library format such as ".ARC" called "QUICKCMD", or else be put alone
  43. ;      in a subdirectory called "QUICKCMD".
  44. ;   5. You may not sell QUICK COMMAND or any part of it.
  45. ;   6. You are not allowed to charge more then $5 to cover the cost of copying
  46. ;      and distribution.
  47. ;   7. You may not distribute any hard copy of the contents of QUICK COMMAND.
  48. ;
  49. ;
  50. ;   These AutoLISP commands and functions are designed to save you time, and
  51. ;   saving time means saving money.  The registration fee is very modest
  52. ;   compared to the savings, and much less expensive then typical third party
  53. ;   AutoCAD software. Be sure to registar if you continue to use them.
  54. ;
  55. ;
  56. ;                                                               DAN
  57. ;
  58. ;
  59. ;
  60. ;
  61. ;        AutoCAD and AutoLISP are registered trade marks of Autodesk Inc.
  62. ;
  63. ;        ***************************************************************
  64. ;
  65. ;   Begin FASTLAYR.LSP
  66. ;
  67. (defun C:LHP (/ SCA SCB SCC)
  68.    (setvar "cmdecho" 0)
  69.    (setq SCA (car (entsel "Pick an object on the layer to be shown:")))(terpri)
  70.    (if SCA (progn
  71.      (setq SCA (entget SCA))
  72.      (setq SCB (cdr (assoc 8 SCA)))(prompt "Layer name is   ")(prin1 SCB)(terpri)
  73.      (setq SCC (ssget "X" (list (cons 8 SCB))))(prompt "Press ENTER")
  74.      (command "select" SCC pause )
  75.    ))
  76.    (setvar "cmdecho" 1)(princ)
  77. )
  78. ;
  79. (defun C:LHN (/ SCA SCB SCC SCD)
  80.    (setvar "cmdecho" 0)(terpri)
  81.    (prompt "Highlight layer by name.")(terpri)
  82.    (setq SCA (strcase (getstring "Layer name:  "))
  83.          SCB (strlen SCA)
  84.          SCC (tblsearch "layer" SCA))(terpri)
  85.    (if (/= SCB 0)(progn
  86.       (if (/= SCC nil)(progn
  87.          (graphscr)
  88.          (setq SCD (ssget "X" (list (cons 8 SCA))))
  89.          (prompt "Press ENTER")
  90.          (command "SELECT" SCD pause)
  91.          )
  92.          (progn (prompt "Layer ")(princ SCA)(prompt " does not exist."))
  93.       )
  94.    ))(setvar "cmdecho" 1)(princ)
  95. )
  96. ;
  97. (defun C:LFP (/ SCA SCB SCC SCD SCE)(terpri)
  98.    (setvar "cmdecho" 0)
  99.    (prompt "Freeze a layer by pick")(terpri)(prompt " ")(terpri)
  100.    (setq SCE (car (entsel "Pick an entity on the layer to be frozen . . . ")))
  101.    (terpri)
  102.    (if SCE (progn
  103.       (setq SCE (entget SCE)
  104.             SCC (cdr (assoc 8 SCE)))
  105.       (prompt "You picked layer  ")(princ SCC)
  106.       (initget "Yes No")
  107.       (setq SCB (getkword ".  Highlight? Y/N <N>  "))(terpri)
  108.       (if (= SCB "Yes")(progn
  109.          (setq SCD (ssget "X" (list (cons 8 SCC))))
  110.          (command "select" SCD )
  111.       ))
  112.       (prompt "Freeze layer  ")(princ SCC)
  113.       (initget "Yes No")
  114.       (setq SCA (getkword "?  Y/N <Y>  "))
  115.       (if (= SCB "Yes")(command ""))
  116.       (if (/= SCA "No")(command "LAYER" "F" SCC ""))
  117.       )
  118.       (prompt "No entity picked!")
  119.    )(setvar "cmdecho" 1)(princ)
  120. )
  121. ;
  122. (defun C:LMP (/ SCA SCB SCC SCD SCE)(terpri)
  123.    (setvar "cmdecho" 0)
  124.    (prompt "Move entities to a different layer")(terpri)(prompt " ")(terpri)
  125.    (setq SCE (car (entsel "Pick an object on the target layer ")))(terpri)
  126.    (if SCE (progn
  127.       (setq SCE (entget SCE)
  128.             SCC (cdr (assoc 8 SCE)))
  129.       (prompt "You picked layer  ")(princ SCC)
  130.       (initget "Yes No")
  131.       (setq SCB (getkword ".  Highlight? Y/N <N>  "))(terpri)
  132.       (if (= SCB "Yes")(progn
  133.          (setq SCD (ssget "X" (list (cons 8 SCC))))
  134.          (command "select" SCD )
  135.       ))
  136.       (prompt "Select entities to be put on layer ")(prin1 SCC)(terpri)
  137.       (setq SCA (ssget))
  138.       (if (= SCB "Yes")(command ""))
  139.       (if (/= SCA nil)(command "CHANGE" SCA "" "PROP" "LAYER" SCC ""))(terpri)
  140.       (if (and (= SCB "Yes")(/= SCA nil))(progn
  141.          (prompt "New layer  ")(prin1 SCC )(prompt "  is shown.  press ENTER")
  142.          (setq SCD (ssget "X" (list (cons 8 SCC))))
  143.          (command "select" SCD pause )
  144.       ))
  145.    )
  146.    (prompt "No entity picked!")
  147.   )(setvar "cmdecho" 1)(princ)
  148. )
  149. ;
  150. (defun C:LN ()
  151.    (setvar "cmdecho" 0)
  152.    (command "layer" "?" "" "")
  153.    (setvar "cmdecho" 1)(princ)
  154. )
  155. ;
  156. (defun C:LSN(/ SCA SCB SCC)
  157.    (setvar "cmdecho" 0)(terpri)
  158.    (prompt "Set current layer by name.")(terpri)
  159.    (setq SCA (strcase (getstring "Layer name:  "))
  160.          SCB (strlen SCA)
  161.          SCC (tblsearch "layer" SCA))(terpri)
  162.    (if (/= SCB 0)(progn
  163.       (if (/= SCC nil)
  164.          (progn (command "LAYER" "Set" SCA "")(graphscr))
  165.          (progn (prompt "Layer ")(princ SCA)(prompt " does not exist."))
  166.       )
  167.    ))(setvar "cmdecho" 1)(princ)
  168. )
  169. ;
  170. (defun C:LTN(/ SCA SCB SCC)
  171.    (setvar "cmdecho" 0)(terpri)
  172.    (prompt "Thaw layer by name.")(terpri)
  173.    (setq SCA (strcase (getstring "Layer name:  "))
  174.          SCB (strlen SCA)
  175.          SCC (tblsearch "layer" SCA))(terpri)
  176.    (if (/= SCB 0)(progn
  177.       (if (/= SCC nil)
  178.          (progn (command "LAYER" "Thaw" SCA "")(graphscr))
  179.          (progn (prompt "Layer ")(princ SCA)(prompt " does not exist."))
  180.       )
  181.    ))(setvar "cmdecho" 1)(princ)
  182. )
  183. ;
  184. (defun C:LFN(/ SCA SCB SCC)
  185.    (setvar "cmdecho" 0)(terpri)
  186.    (prompt "Freeze layer by name.")(terpri)
  187.    (setq SCA (strcase (getstring "Layer name:  "))
  188.          SCB (strlen SCA)
  189.          SCC (tblsearch "layer" SCA))(terpri)
  190.    (if (/= SCB 0)(progn
  191.       (if (/= SCC nil)
  192.          (progn (command "LAYER" "Freeze" SCA "")(graphscr))
  193.          (progn (prompt "Layer ")(princ SCA)(prompt " does not exist."))
  194.       )
  195.    ))(setvar "cmdecho" 1)(princ)
  196. )
  197. ;
  198. (defun C:LTA()(setvar "cmdecho" 0)(command "LAYER" "Thaw" "*" "")
  199.    (setvar "cmdecho" 1)(princ))
  200. ;
  201. (defun C:LFA()(setvar "cmdecho" 0)(command "LAYER" "Freeze" "*" "")
  202.    (setvar "cmdecho" 1)(princ))
  203. ;
  204. ;   End FASTLAYR.LSP
  205.